home *** CD-ROM | disk | FTP | other *** search
/ Disc to the Future 2 / Disc to the Future Part II Programmer's Reference (Wayzata Technology)(6013)(1992).bin / MAC / MPW_TOOL / TOOLS / TOOLS_WI / PERL / T / OP / DELETE.T < prev    next >
Text File  |  1991-04-28  |  735b  |  30 lines
  1. #!./perl
  2.  
  3. # $Header: delete.t,v 4.0 91/03/20 01:51:56 lwall Locked $
  4.  
  5. print "1..6\n";
  6.  
  7. $foo{1} = 'a';
  8. $foo{2} = 'b';
  9. $foo{3} = 'c';
  10.  
  11. $foo = delete $foo{2};
  12.  
  13. if ($foo eq 'b') {print "ok 1\n";} else {print "not ok 1 $foo\n";}
  14. if ($foo{2} eq '') {print "ok 2\n";} else {print "not ok 2 $foo{2}\n";}
  15. if ($foo{1} eq 'a') {print "ok 3\n";} else {print "not ok 3\n";}
  16. if ($foo{3} eq 'c') {print "ok 4\n";} else {print "not ok 4\n";}
  17.  
  18. $foo = join('',values(foo));
  19. if ($foo eq 'ac' || $foo eq 'ca') {print "ok 5\n";} else {print "not ok 5\n";}
  20.  
  21. foreach $key (keys foo) {
  22.     delete $foo{$key};
  23. }
  24.  
  25. $foo{'foo'} = 'x';
  26. $foo{'bar'} = 'y';
  27.  
  28. $foo = join('',values(foo));
  29. if ($foo eq 'xy' || $foo eq 'yx') {print "ok 6\n";} else {print "not ok 6\n";}
  30.